<script language="vbscript" runat="server">
	Function GetType( variable )
		GetType = TypeName( variable )
	End Function
	
	Function FormatDate( variable, NamedFormat )
		FormatDate = FormatDateTime( CDate(variable), NamedFormat)
	End Function
	
	Function TrimGet( key )
		TrimGet = Trim( Request.QueryString( key ) )
	End Function
	
	Function TrimPost( key )
		TrimPost = Trim( Request.Form( key ) )
	End Function
	
	Function POST ( key )
		POST = CStr(Request.Form( key ))
	End Function
	
	Function sGET ( key )
		sGET = CStr(Request.QueryString( key ))
	End Function
</script>